﻿Imports Microsoft.WindowsAPICodePack.Taskbar
Public Class Handler
    Public buttonOpen As ThumbnailToolbarButton
    Public buttonStop As ThumbnailToolbarButton
    Public buttonPlay As ThumbnailToolbarButton
    Public buttonFullscreen As ThumbnailToolbarButton

    Public Sub New(ByVal sender As frmMain)
        If isWindows7() = True Then
            buttonPlay = New Microsoft.WindowsAPICodePack.Taskbar.ThumbnailToolbarButton(My.Resources.icoPlay, "Play")
            AddHandler buttonPlay.Click, AddressOf sender.btnPlay_Click
            buttonStop = New Microsoft.WindowsAPICodePack.Taskbar.ThumbnailToolbarButton(My.Resources.icoStop, "Stop")
            AddHandler buttonStop.Click, AddressOf sender.btnStop_Click
            buttonOpen = New Microsoft.WindowsAPICodePack.Taskbar.ThumbnailToolbarButton(My.Resources.icoPlayme, "Open")
            AddHandler buttonOpen.Click, AddressOf sender.btnOpen_Click
        End If
    End Sub
    Public Sub Create()

    End Sub
End Class
